www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\D_del_custom_asp_label.asp

    
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>
<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=../../inc/ND_class_function.asp-->

<!--#include file=conn_m.asp-->


<%
AJAXshowLoader()


%>

<%


if find_dataw("qitashezhi123","0",7)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>


<%
ss4=request("fname")
'//ss4=left(ss4,len(ss4)-1) '去掉最后一个/号




nd1_m_label_is_sys=""


dddd=loadfile("../../Model/ComponentLabels/"&ss4)

call get_info_array_from_label_file_content(dddd)

strDBPath1= left(ss4,instrrev(ss4,"/"))


if right(nd1_l_name,1)="$" then



sss1=loadfile("../../Model/ComponentLabels/"&strDBPath1&"index_componentlabel.asp")
	
if instr(1,sss1,"$componentlabelname:",1)<>0 then
nd1_m_label_name=trim(mid(sss1,instr(1,sss1,"$componentlabelname:",1)+20,instr(1,sss1,"$end_componentlabelname",1)-(instr(1,sss1,"$componentlabelname:",1)+20)))
else
nd1_m_label_name=""
end if

if instr(1,sss1,"$componentlabelcixu:",1)<>0 then
nd1_m_label_cixu=trim(mid(sss1,instr(1,sss1,"$componentlabelcixu:",1)+20,instr(1,sss1,"$end_componentlabelcixu",1)-(instr(1,sss1,"$componentlabelcixu:",1)+20)))
else
nd1_m_label_cixu=""
end if
if instr(1,sss1,"$is_sys_componentlabel:",1)<>0 then
nd1_m_label_is_sys=trim(mid(sss1,instr(1,sss1,"$is_sys_componentlabel:",1)+23,instr(1,sss1,"$end_is_sys_componentlabel",1)-(instr(1,sss1,"$is_sys_componentlabel:",1)+23)))
else
nd1_m_label_is_sys=""
end if


nd1_l_nameff=left(nd1_l_name,len(nd1_l_name)-21)


nd_lb_namea=nd1_m_label_name&nd1_l_nameff&"$"
else
nd_lb_namea=nd1_l_name


end if


if nd1_m_label_is_sys="1" then



%>


<script language=javascript>
alert("系统控件的标签无法删除");

history.go(-1);

</script>



<%



else


sssp=strDBPath1
sssspq=split(sssp,"/")
ooosss=""
for iii=0 to ubound(sssspq)-2
ooosss=ooosss&sssspq(iii)&"/"
next






sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath1=""
end if




'strDBPath1=路径
'filename=文件名
filename=sssssss1


set filea=new Cls_FSO


conn2.execute("delete from ND_label_cachem where lcase(label_name)='"&nd_lb_namea&"'")

if filea.deleteAFile(server.mappath("../../Model/ComponentLabels/"&ss4))=1 then




%>


<script language=javascript>
alert("删除成功");

self.location="D_admin_custom_label.asp?fpath=<%=ooosss%>";

</script>

<%

else
%>




<script language=javascript>
alert("删除失败");

self.location="D_admin_custom_label.asp?fpath=<%=ooosss%>";

</script>



<%





end if

end if



AJAXcloseLoader()
%>